﻿Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports Contracts
Imports Entities

Public Class GetLargeResponseRRRH
  Inherits Albatross.ServerSide.Messaging.RequestHandler(Of GetLargeResponseRequestI)

  Public Overloads Overrides Function Handle(ByVal request As Contracts.GetLargeResponseRequestI) As Albatross.Common.Messaging.Response
    Dim oReturn As GetLargeResponseRequestO
    Dim oMyStringList As List(Of String)
    Dim i As Integer = 0
    Dim sString As String = ""

    oReturn = New GetLargeResponseRequestO
    sString = New String("x", 100)

    oMyStringList = New List(Of String)
    For i = 1 To 8193
      oMyStringList.Add(sString)
    Next

    oReturn.StringList = oMyStringList
    Return oReturn
  End Function
End Class
